Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue38/Parser/unit1.dfm/unit1.txt

Text File | 1998-07-05 | 3.4 KB | 195 lines

object Form1: TForm1
  Left = 235
  Top = 167
  Width = 553
  Height = 389
  ActiveControl = RadioGroup1
  Caption = 'Form1'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -12
  Font.Name = 'Arial'
  Font.Style = []
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 15
  object SpeedButton1: TSpeedButton
    Left = 8
    Top = 40
    Width = 129
    Height = 29
    Caption = '&Parse'
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 8
    Top = 8
    Width = 129
    Height = 29
    Caption = 'Pick &File'
    OnClick = SpeedButton2Click
  end
  object EOF: TLabel
    Left = 123
    Top = 105
    Width = 7
    Height = 15
    Alignment = taRightJustify
    Caption = '0'
  end
  object Symbol: TLabel
    Left = 123
    Top = 124
    Width = 7
    Height = 15
    Alignment = taRightJustify
    Caption = '0'
  end
  object StringL: TLabel
    Left = 123
    Top = 142
    Width = 7
    Height = 15
    Alignment = taRightJustify
    Caption = '0'
  end
  object IntegerL: TLabel
    Left = 123
    Top = 161
    Width = 7
    Height = 15
    Alignment = taRightJustify
    Caption = '0'
  end
  object FloatL: TLabel
    Left = 123
    Top = 180
    Width = 7
    Height = 15
    Alignment = taRightJustify
    Caption = '0'
  end
  object Label6: TLabel
    Left = 12
    Top = 104
    Width = 37
    Height = 15
    Caption = 'toEOF:'
  end
  object Label7: TLabel
    Left = 12
    Top = 123
    Width = 54
    Height = 15
    Caption = 'toSymbol:'
  end
  object Label8: TLabel
    Left = 12
    Top = 141
    Width = 45
    Height = 15
    Caption = 'toString:'
  end
  object Label9: TLabel
    Left = 12
    Top = 160
    Width = 51
    Height = 15
    Caption = 'toInteger:'
  end
  object Label10: TLabel
    Left = 12
    Top = 179
    Width = 40
    Height = 15
    Caption = 'toFloat:'
  end
  object Label11: TLabel
    Left = 12
    Top = 198
    Width = 68
    Height = 15
    Caption = 'toComment:'
  end
  object Comment: TLabel
    Left = 123
    Top = 199
    Width = 7
    Height = 15
    Alignment = taRightJustify
    Caption = '0'
  end
  object Label13: TLabel
    Left = 12
    Top = 216
    Width = 64
    Height = 15
    Caption = 'toOpenTag:'
  end
  object Label14: TLabel
    Left = 12
    Top = 235
    Width = 67
    Height = 15
    Caption = 'toCloseTag:'
  end
  object OpenTag: TLabel
    Left = 123
    Top = 217
    Width = 7
    Height = 15
    Alignment = taRightJustify
    Caption = '0'
  end
  object CloseTag: TLabel
    Left = 123
    Top = 236
    Width = 7
    Height = 15
    Alignment = taRightJustify
    Caption = '0'
  end
  object SpeedButton3: TSpeedButton
    Left = 8
    Top = 72
    Width = 129
    Height = 29
    Caption = '&Abort'
    OnClick = SpeedButton3Click
  end
  object RadioGroup1: TRadioGroup
    Left = 8
    Top = 252
    Width = 129
    Height = 101
    ItemIndex = 0
    Items.Strings = (
      'CSV Parser'
      'Text Parser'
      'Pascal Parser'
      'Enhanced Parser'
      'Html Parser')
    TabOrder = 0
  end
  object Memo1: TMemo
    Left = 148
    Top = 8
    Width = 389
    Height = 345
    ScrollBars = ssBoth
    TabOrder = 1
  end
  object OpenDialog1: TOpenDialog
    Filter =
      'Text files (*.txt)|*.txt|Pascal files (*.pas)|*.pas|Html files (' +
      '*.htm)|*.htm'
    Left = 60
    Top = 304
  end
  object AParser: ThgsParser
    OnParse = AParserParse
    Left = 92
    Top = 304
  end
end